home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / programs / prog38 < prev    next >
Encoding:
Text File  |  1995-06-29  |  548 b   |  29 lines
  1. # testing map/unmap
  2. xtAppInitialize -class Program
  3.  
  4. xmRowColumn .r managed
  5. xmPushButton .r.b managed -labelString "Unmap label"
  6. xmLabel .r.l managed -labelString "Hello"
  7. .r.b activateCallback remap
  8. set state mapped
  9.  
  10. proc remap {} {
  11.   global state
  12.  
  13.   if {"$state" == "mapped"} {
  14.     puts stdout unmapping
  15.     .r.l unmapWidget
  16.     .r.b setValues -labelString "Map label"
  17.     set state unmapped
  18.   } else {
  19.     puts stdout mapping
  20.     .r.l mapWidget
  21.     .r.b setValues -labelString "Unmap label"
  22.     set state mapped
  23.   }
  24. }
  25.  
  26. . realizeWidget
  27.  
  28. . mainLoop
  29.